home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / ADA-TUTR.ZIP;1 / FIB.ANS (.png) < prev    next >
ANSi Art File  |  1992-09-04  |  261 b   |  640x160  |  1-bit (2 colors)
   ocr: Our solution to Uutside Assignment 4 (in FIB.ANS): separate (FIBTEST) function FIB(N : in PUSITIVE) return PUSITIVE is ANSWER : POSITIVE := 1; begin if N > 2 then ANSWER := FIBIN - 1) + FIBIN - 2); end if; return ANSWER: end FIB;